home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / SEEN.SRC < prev    next >
Text File  |  1990-11-04  |  3KB  |  123 lines
  1. ;\|
  2. ;SEEN.SRC     Translated from SEEN.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;SEEN     02:50:44 PM   2/ 7/90   |
  4. define(CTR|N|4||)
  5. define(CTR2|N|4||)
  6. define(silly|a|1||)
  7. define(fld_CNTR|N|4||)
  8. define(SEEN_CNTR|N|4||)
  9. define(DOBN|D|10||)
  10. define(CTR3|N|4||)
  11. define(CTR4|N|4||)
  12. define(CTR5|N|4||)
  13. define(CTR6|N|4||)
  14. define(CTR7|N|4||)
  15. define(CTR8|N|4||)
  16. define(CTR9|N|4||)
  17. define(SEEN_CTR|N|4||)
  18. define(SEEN_CTR9|N|4||)
  19. define(SEEN_CTR2|N|4||)
  20. define(SEEN_CTR3|N|4||)
  21. define(SEEN_CTR4|N|4||)
  22. define(SEEN_CTR5|N|4||)
  23. define(SEEN_CTR6|N|4||)
  24. define(SEEN_CTR7|N|4||)
  25. define(SEEN_CTR8|N|4||)
  26. define(DOB1|D|10||)
  27. define(DOB2|D|10||)
  28. define(DOB9|D|10||)
  29. define(DOB3|D|10||)
  30. define(DOB4|D|10||)
  31. define(DOB5|D|10||)
  32. define(DOB6|D|10||)
  33. define(DOB7|D|10||)
  34. define(DOB8|D|10||)
  35. define(TD|D|10||)
  36. date(TD|G)
  37. open(PATIENT||0|)
  38. trap(q|g|exit4)
  39. trap(I|G|EXIT)
  40. clrscr
  41. pmsg("Enter OVER 75 date of birth: "|1|1|Y|N|S|DOB1)
  42. DOB3 = (DOB1+3650)
  43. DOB4 = (DOB3+3650)
  44. DOB5 = (DOB4+3650)
  45. DOB6 = (DOB5+3650)
  46. DOB7 = (DOB6+3650)
  47. DOB8 = (DOB7+3650)
  48. DOB9 = (DOB8 + 3650)
  49. pmsg(">75     Seen      65-75     seen      55-65     Seen"|1|10|N|N|S|)
  50. pmsg("45-55   Seen      35-45     seen      25-35     Seen"|1|14|N|N|S|)
  51. pmsg("15-35   Seen      5-15       seen     <5        seen"|1|18|N|N|S|)
  52. START:
  53. find(B|RECORD.NUMBER|EXIT|)
  54. TEST:
  55. if DATE.OF.BIRTH < (DOB1) do
  56. {
  57. CTR = (CTR+1)
  58. if SEEN > (TD-365) then SEEN_CTR = (SEEN_CTR+1)
  59. goto NEXT
  60. }
  61. if DATE.OF.BIRTH < (DOB3) do
  62. {
  63. CTR3 = (CTR3+1)
  64. if SEEN > (TD-365) then SEEN_CTR3 = (SEEN_CTR3+1)
  65. goto NEXT
  66. }
  67. if DATE.OF.BIRTH < (DOB4) do
  68. {
  69. CTR4 = (CTR4+1)
  70. if SEEN > (TD-365) then SEEN_CTR4 = (SEEN_CTR4+1)
  71. goto NEXT
  72. }
  73. if DATE.OF.BIRTH < (DOB5) do
  74. {
  75. CTR5 = (CTR5+1)
  76. if SEEN > (TD-365) then SEEN_CTR5 = (SEEN_CTR5+1)
  77. goto NEXT
  78. }
  79. if DATE.OF.BIRTH < (DOB6) do
  80. {
  81. CTR6 = (CTR6+1)
  82. if SEEN > (TD-365) then SEEN_CTR6 = (SEEN_CTR6+1)
  83. goto NEXT
  84. }
  85. if DATE.OF.BIRTH < (DOB7) do
  86. {
  87. CTR7 = (CTR7+1)
  88. if SEEN > (TD-365) then SEEN_CTR7 = (SEEN_CTR7+1)
  89. goto NEXT
  90. }
  91. if DATE.OF.BIRTH < (DOB2) do
  92. {
  93. CTR2 = (CTR2+1)
  94. if SEEN > (TD-365) then SEEN_CTR2 = (SEEN_CTR2+1)
  95. goto NEXT
  96. }
  97. if DATE.OF.BIRTH < (DOB8) do
  98. {
  99. CTR8 = (CTR8+1)
  100. if SEEN > (TD-365) then SEEN_CTR8 = (SEEN_CTR8+1)
  101. goto NEXT
  102. }
  103. if DATE.OF.BIRTH < (DOB9) do
  104. {
  105. CTR9 = (CTR9+1)
  106. if SEEN > (TD-365) then SEEN_CTR9 = (SEEN_CTR9+1)
  107. goto NEXT
  108. }
  109. fld_CNTR = (fld_CNTR+1)
  110. if SEEN > (TD-365) then SEEN_CNTR = (SEEN_CNTR+1)
  111. NEXT:
  112. pmsg(RECORD.NUMBER|1|1|N|N||)
  113. silly = ("")
  114. find(N|PATIENT|EXIT|)
  115. goto TEST
  116. EXIT:
  117. pmsg(CTR;"  ";SEEN_CTR;"       ";CTR3;"      ";SEEN_CTR3;"      ";CTR4;"      ";SEEN_CTR4|1|11|N|N|S|)
  118. pmsg(CTR5;"  ";SEEN_CTR5;"      ";CTR6;"       ";SEEN_CTR6;"     ";CTR7;"      ";SEEN_CTR7|1|15|N|N|S|)
  119. pmsg(CTR8;"  ";SEEN_CTR8;"      ";CTR9;"      ";SEEN_CTR9;"      ";fld_CNTR;"      ";SEEN_CNTR|1|19|N|N|S|)
  120. pmsg(""|1|1|Y|N|S|)
  121. exit4:
  122. run("recmenu")
  123.